home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG: World of Games / PC-SIG World of Games (CDRM1080710) (1993).iso / 55 / DESERT.BAS < prev    next >
BASIC Source File  |  1982-02-22  |  7KB  |  264 lines
  1. 100 CLS
  2. 110 A$=STRING$(80,205)
  3. 120 PRINT A$
  4. 130 PRINT TAB(33)"DESERT  #2004"
  5. 140 COLOR 23,0,0
  6. 150 PRINT :PRINT :PRINT TAB(39)"IPCO"
  7. 160 COLOR 7,0,0
  8. 170 PRINT :PRINT :PRINT TAB(25)"PERSONAL COMPUTER OWNERS GROUP"
  9. 180 PRINT :PRINT :PRINT TAB(19)"p.o. box 10426, pittsburgh, pennsylvania 15234"
  10. 190 PRINT A$
  11. 200 PRINT :PRINT :PRINT :PRINT :PRINT
  12. 210 PRINT TAB(28)"PRESS ANY KEY TO CONTINUE"
  13. 220 A$=INKEY$:IF A$="" THEN 220
  14. 230 CLS
  15. 240 KEY 1," DRINK "
  16. 250 KEY 2," MOD "
  17. 260 KEY 3," FAST "
  18. 270 KEY 4," STOP "
  19. 280 KEY 5," STATUS? "
  20. 290 KEY 6," HOPE "
  21. 300 KEY 7,""
  22. 310 KEY 8,""
  23. 320 KEY 9,""
  24. 330 KEY 10,""
  25. 340 REM  ***  DESERT PROGRAM ***
  26. 350 REM TRANSLATED BY IPCO 2/82
  27. 360 CLS
  28. 370 PRINT TAB(35)"DESERT"
  29. 380 PRINT TAB(35)"******"
  30. 390 PRINT
  31. 400 PRINT TAB(29)"IBM BASICA FOR THE PC"
  32. 410 PRINT
  33. 420 PRINT
  34. 430 Y$=STRING$(80,205)
  35. 440 PRINT Y$
  36. 450 PRINT
  37. 460 PRINT
  38. 470 PRINT
  39. 480 FOR DELAY=1 TO 1000
  40. 490 NEXT DELAY
  41. 500 PRINT
  42. 510 PRINT "ENTER YOUR LAST NAME.";
  43. 520 INPUT L$
  44. 530 CLS
  45. 540 PRINT "WOULD YOU LIKE INSTRUCTIONS (Y OR N)";
  46. 550 INPUT D$
  47. 560 IF D$="N" THEN 870
  48. 570 CLS
  49. 580 PRINT
  50. 590 PRINT
  51. 600 PRINT  "WELCOME  TO  DESERT.  THE  OBJECT  IS  TO TRAVEL 40 MILES ACROSS THE GREAT GOBI" :PRINT
  52. 610 PRINT "DESERT. A TRIBE OF KNOCKED KNEED PIGMIES WILL BE CHASING YOU.  YOU WILL BE ASKED"
  53. 620 PRINT "FOR COMMANDS EVERY SO OFTEN..."
  54. 630 PRINT
  55. 640 PRINT
  56. 650 PRINT "   C O M M A N D S :"
  57. 660 PRINT "   ==============="
  58. 670 PRINT
  59. 680 PRINT "   #1 DRINK FROM YOUR CANTEEN"
  60. 690 PRINT "   #2 AHEAD MODERATE SPEED"
  61. 700 PRINT "   #3 AHEAD FULL SPEED"
  62. 710 PRINT "   #4 STOP FOR THE NIGHT"
  63. 720 PRINT "   #5 STATUS CHECK"
  64. 730 PRINT "   #6 HOPE FOR HELP"
  65. 740 PRINT
  66. 750 PRINT
  67. 760 PRINT "PRESS ANY KEY TO CONTINUE"
  68. 770 A$=INKEY$:IF A$="" THEN 770
  69. 780 CLS
  70. 790 PRINT
  71. 800 PRINT "YOU HAVE ONE QUART OF WATER WHICH WILL LAST YOU SIX DRINKS.":PRINT
  72. 810 PRINT "YOUR MAY RENEW YOUR WATER SUPPLY COMPLETELY AT AN OASIS.":PRINT
  73. 820 PRINT "YOU GET A HALF A QUART IF FOUND BY HELP.":PRINT
  74. 830 PRINT "IF HELP DOES NOT FIND YOU AFTER COMMAND SIX, YOU LOSE.":PRINT
  75. 840 PRINT "BE WARY OF COMMAND #3 USE IT ONLY WHEN YOUR CAMEL IS FRESH AND RESTED.":PRINT
  76. 850 PRINT
  77. 860 PRINT
  78. 870 PRINT :PRINT "GOOD LUCK AND GOOD CAMELING!":PRINT :PRINT
  79. 880 PRINT "PRESS ANY KEY TO CONTINUE"
  80. 890 A$=INKEY$:IF A$="" THEN 890
  81. 900 PRINT:CLS
  82. 910 PRINT "YOU ARE IN THE MIDDLE OF THE DESERT AT AN OASIS."
  83. 920 PRINT
  84. 930 GOSUB 2610
  85. 940 IF C>39 THEN 2030
  86. 950 Z=Z-1
  87. 960 IF Z=1 THEN 970 ELSE 1040
  88. 970 CLS
  89. 980 PRINT
  90. 990 PRINT "---------WARNING-----------GET A DRINK----------------"
  91. 1000 PRINT
  92. 1010 FOR DELAY=1 TO 2000
  93. 1020 NEXT DELAY
  94. 1030 CLS
  95. 1040 IF Z<0 THEN 2520
  96. 1050 P=P+1
  97. 1060 X2=INT(10*RND)+2.5
  98. 1070 IF Q>0 THEN 1690
  99. 1080 IF P<4 THEN 1210
  100. 1090 C1=C1+X2
  101. 1100 IF C1<C THEN 1200
  102. 1110 CLS
  103. 1120 PRINT "===================================="
  104. 1130 PRINT "THE PYGMIES HAVE CAPTURED":PRINT
  105. 1140 PRINT "YOU--CAMEL AND PEOPLE SOUP":PRINT
  106. 1150 PRINT "IS THEIR FAVORITE DISH!!!":PRINT
  107. 1160 FOR DELAY=1 TO 3500
  108. 1170 NEXT DELAY
  109. 1180 CLS
  110. 1190 GOTO 2440
  111. 1200 PRINT "THE PYGMIES ARE";C-C1;" MILES BEHIND YOU.":PRINT
  112. 1210 PRINT :PRINT "YOU HAVE TRAVELLED ";C;" MILES ALL TOGETHER.":PRINT
  113. 1220 PRINT :PRINT "WHAT IS YOUR COMMAND, CAMELEER ";L$;"";
  114. 1230 PRINT Y$
  115. 1240 INPUT Y
  116. 1250 ON Y GOTO 1540,1320,1390,1480,1510,1260
  117. 1260 T=INT(10*RND)
  118. 1270 IF T<>1 THEN 2020
  119. 1280 PRINT:PRINT "HELP HAS FOUND YOU IN A STATE OF UNCONSCIOUSNESS."
  120. 1290 S=3
  121. 1300 Z=4
  122. 1310 GOTO 940
  123. 1320 F=F+1
  124. 1330 IF F=8 THEN 2000
  125. 1340 GOSUB 1590
  126. 1350 X1=INT(10*RND)
  127. 1360 C=C+X1
  128. 1370 PRINT:PRINT "YOUR CAMEL LIKES THIS PLACE."
  129. 1380 GOTO 940
  130. 1390 F=F+3
  131. 1400 IF F>7 THEN 2000
  132. 1410 GOSUB 1590
  133. 1420 X1=2*INT(10*RND)
  134. 1430 C=C+X1
  135. 1440 PRINT
  136. 1450 PRINT:PRINT  "YOUR CAMEL IS BURNING ACROSS THE DESERT SANDS."
  137. 1460 PRINT
  138. 1470 GOTO 940
  139. 1480 PRINT:PRINT "YOUR CAMEL THANKS YOU!"
  140. 1490 F=0
  141. 1500 GOTO 950
  142. 1510 PRINT:PRINT "YOUR CAMEL HAS";7-F;"GOOD DAYS LEFT."
  143. 1520 PRINT :PRINT "YOU HAVE ";S;" DRINKS LEFT IN YOUR CANTEEN "
  144. 1530 PRINT :PRINT "YOU CAN GO ";Z;" COMMANDS WITHOUT DRINKING."
  145. 1540 S=S-1
  146. 1550 IF S<0 THEN 2020
  147. 1560 PRINT :PRINT "BETTER WATCH FOR AN OASIS !"
  148. 1570 Z=4
  149. 1580 GOTO 1220
  150. 1590 A=INT(100*RND)
  151. 1600 IF A>5 THEN 1940
  152. 1610 PRINT "WILD BERBERS HIDDEN IN THE SAND HAVE CAPTURED YOU."
  153. 1620 PRINT :PRINT "LUCKILY THE LOCAL SHEIK HAS AGREED TO THEIR RANSOME "
  154. 1630 PRINT :PRINT "DEMANDS....BUT....WATCH OUT FOR THE PYGMIES!!!!"
  155. 1640 PRINT
  156. 1650 PRINT "YOU HAVE A NEW CHOICE OF SUB-COMMANDS:"
  157. 1660 KEY 7," ESCAPE"
  158. 1670 PRINT
  159. 1680 KEY 8," WAIT "
  160. 1690 PRINT " #7 ATTEMPT TO ESCAPE"
  161. 1700 PRINT " #8 WAIT FOR PAYMENT"
  162. 1710 PRINT
  163. 1720 PRINT "YOUR SUB-COMMAND ";
  164. 1730 INPUT X
  165. 1740 IF X=8 THEN 1820
  166. 1750 X1=INT(10*RND)
  167. 1760 IF X1<5 THEN 1800
  168. 1770 PRINT :PRINT "CONGRATULATIONS, YOU ESCAPED SUCCESSFULLY !!!!!"
  169. 1780 Q=0
  170. 1790 GOTO 940
  171. 1800 PRINT :PRINT "YOU ARE MORTALLY WOUNDED BY A PIG STABBER WHILE ESCAPING!!!!"
  172. 1810 GOTO 2260
  173. 1820 X1=INT(100*RND)
  174. 1830 REM
  175. 1840 IF X1>24 THEN 1900
  176. 1850 PRINT :PRINT "YOUR RANSOME HAS BEEN PAID AND YOU ARE FREE TO GO."
  177. 1860 FOR DELAY=1 TO 4000
  178. 1870 NEXT DELAY
  179. 1880 Q=0
  180. 1890 GOTO 940
  181. 1900 PRINT "THE LOCAL SULTAN IS COLLECTING... JUST WAIT..."
  182. 1910 FOR DELAY=1 TO 4000
  183. 1920 NEXT DELAY
  184. 1930 GOTO 940
  185. 1940 A=INT(10*RND)
  186. 1950 IF A>2 THEN 2100
  187. 1960 PRINT :PRINT "YOU HAVE ARRIVED AT AN OASIS, YOUR CAMEL IS FILLING YOUR CANTEEN AND EATING FIGS"
  188. 1970 Z=4
  189. 1980 S=6
  190. 1990 RETURN
  191. 2000 PRINT :PRINT "YOU DIRTY RAPSCALLION !!!"
  192. 2010 PRINT :PRINT "YOU RAN YOUR POOR CAMEL TO DEATH !!!!!"
  193. 2020 GOTO 2260
  194. 2030 CLS
  195. 2040 PRINT Y$
  196. 2050 X$=STRING$(80,2)
  197. 2060 PRINT X$
  198. 2070 PRINT "YOU WIN!  A PARTY IS BEING GIVEN IN YOUR HONOR........."
  199. 2080 PRINT :PRINT "...THE PYGMIES ARE PLANNING TO ATTEND......."
  200. 2090 GOTO 2440
  201. 2100 X1=INT(100*RND)
  202. 2110 IF X1>5 THEN 2210
  203. 2120 PRINT :PRINT "YOU HAVE BEEN CAUGHT IN A SANDSTORM...... GOOD LUCK !!!"
  204. 2130 X5=INT(10*RND)
  205. 2140 X6=INT(10*RND)
  206. 2150 IF X6<5 THEN 2180
  207. 2160 C=C+X5
  208. 2170 GOTO 2190
  209. 2180 C=C-X5
  210. 2190 PRINT :PRINT "YOUR NEW POSITION IS ";C;" MILES SO FAR!"
  211. 2200 RETURN
  212. 2210 X1=INT(100*RND)
  213. 2220 IF X1>5 THEN 1250
  214. 2230 C1=C1+1
  215. 2240 PRINT :PRINT "YOUR CAMEL HAS HURT HIS HUMP LUCKILY THE PYGMIES WERE FOOTWEARY !!!!"
  216. 2250 RETURN
  217. 2260 U=INT(10*RND)
  218. 2270 PRINT :PRINT "YOU DIED IN THE DESERT."
  219. 2280 FOR DELAY=1 TO 4000
  220. 2290 NEXT DELAY
  221. 2300 PRINT
  222. 2310 IF U>1 THEN 2340
  223. 2320 PRINT "THE NATIONAL CAMEL'S UNION IS NOT ATTENDING YOUR FUNERAL !!!"
  224. 2330 GOTO 2440
  225. 2340 IF U>3 THEN 2370
  226. 2350 PRINT :PRINT "YOUR BODY WAS EATEN BY VULTURES AND IMPORTED CANNIBALS !!!!"
  227. 2360 GOTO 2440
  228. 2370 IF U>5 THEN 2400
  229. 2380 PRINT :PRINT "THE LOCAL SHEIK NOW USES YOUR SKULL FOR A CHANGE PURSE !!!!"
  230. 2390 GOTO 2440
  231. 2400 IF U>7 THEN 2430
  232. 2410 PRINT :PRINT "PEOPLE WITH LITTLE INTELLIGENCE SHOULD STAY OUT OF THE DESERT!!!!"
  233. 2420 GOTO 2440
  234. 2430 PRINT :PRINT "TURKEYS SHOULD FLY, NOT RIDE CAMELS !!!"
  235. 2440 PRINT
  236. 2450 FOR DELAY=1 TO 4000
  237. 2460 NEXT DELAY
  238. 2470 PRINT
  239. 2480 PRINT "WANT A NEW CAMEL AND A NEW GAME (Y OR N)";
  240. 2490 INPUT D$
  241. 2500 IF D$="Y" THEN 850
  242. 2510 GOTO 2540
  243. 2520 PRINT :PRINT "YOU RAN OUT OF WATER........SORRY CHUM!!!!!"
  244. 2530 GOTO 2260
  245. 2540 CLS
  246. 2550 PRINT Y$
  247. 2560 PRINT X$
  248. 2570 PRINT TAB(37)"CHICKEN"
  249. 2580 PRINT X$
  250. 2590 PRINT Y$
  251. 2600 END
  252. 2610 Z=4
  253. 2620 S=6
  254. 2630 C=0
  255. 2640 C1=0
  256. 2650 Q=0
  257. 2660 F=0
  258. 2670 P=0
  259. 2680 RETURN
  260. "
  261. 2580 PRINT X$
  262. 2590 PRINT Y$
  263. 2600 END
  264. 2